UNLOCK  iA4TSaBJFESSEL  0
BEGIN DECLARE SECTION
END DECLARE SECTION
EXECUTE IMMEDIATE :cstring
cstring